From: Karl Heuer Date: Fri, 11 Feb 1994 22:05:44 +0000 (+0000) Subject: (rmail-dont-reply-to): Change user-original-login-name to user-login-name. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~93146 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=28b4613975dcc95ba80b0c93881f620a5ab529f8;p=emacs.git (rmail-dont-reply-to): Change user-original-login-name to user-login-name. --- diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 6c0036d3f3c..3798ab78dce 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -128,7 +128,7 @@ Usenet paths ending in an element that matches are removed also." (concat (if rmail-default-dont-reply-to-names (concat rmail-default-dont-reply-to-names "\\|") "") - (concat (regexp-quote (user-original-login-name)) + (concat (regexp-quote (user-login-name)) "\\>")))) (let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*!\\|\\)\\(" rmail-dont-reply-to-names